home *** CD-ROM | disk | FTP | other *** search
/ Adventures with Oslo: Tools & Gadgets / Adventures with Oslo - Tools and Gadgets.ISO / mac / Studio / ReadPix.Dir / 00043_readNext.ls < prev    next >
Encoding:
Text File  |  1994-09-23  |  293 b   |  10 lines
  1. on mouseUp
  2.   global pictFolder, prevPictToRead, nextPictToRead
  3.   if getNthFileNameInFolder(pictFolder, nextPictToRead) = EMPTY then
  4.     alert("No more PICTs to load.")
  5.   else
  6.     set prevPictToRead to nextPictToRead
  7.     set nextPictToRead to readPicts(nextPictToRead, #ascending)
  8.   end if
  9. end
  10.